class ckTestClass	public property name as string	public property count as integer	public sub ckTestClass()		msgbox("Created new TestClass")	end sub	public sub TestSub()		me.name = "Ok Test Class"	end sub	end classsub main()   	dim test as ckTestClass	test = new ckTestClass		msgbox("Assign some stuff")	test.name = "Jose L. Cuevas"	     msgbox(" Name " & test.name)	msgbox("Lest call a sub")	test.TestSub()	msgbox(" Name " & test.name)	msgbox("test done")end sub